home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Games / QUID / Install-QuidDE < prev    next >
Text File  |  1997-08-25  |  5KB  |  185 lines
  1. ; $Id: Install Quid,v 1.0 97/05/15 17:39:10 lee Exp $
  2. ; $VER: Install-Quid 1.0
  3.  
  4. (set app_prefix "Quid?_")
  5. (set app_disk1  "1")
  6. (set app_disk2  "2")
  7. (set app_disk3  "3")
  8.  
  9. (set app_volume1 (cat app_prefix app_disk1 ":"))
  10. (set app_volume2 (cat app_prefix app_disk2 ":"))
  11. (set app_volume3 (cat app_prefix app_disk3 ":"))
  12.  
  13.  
  14.  
  15.  
  16. ; standard amiga error codes
  17. (set RC_OK     0
  18.      RC_WARN   5
  19.      RC_ERROR 10
  20.      RC_FATAL 20
  21.      )
  22. ;
  23. ; determine AmigaDos version and revision numbers
  24. ;
  25. (set AmigaDos_Number   (getversion))
  26. (set AmigaDos_Version  (/ AmigaDos_Number 65536))
  27. (set AmigaDos_Revision (- AmigaDos_Number (* AmigaDos_Version 65536)))
  28.  
  29. ; --------------------------------------------------------------------
  30.  
  31. (procedure get_lhex
  32.  
  33.         (if ( = (exists "ram:lhex" (noreq)) 0)
  34.                 (
  35.                 (working "Kopieren LHEX in Ram...\n")
  36.                 (copyfiles (source ("LHEX")) (dest "ram:"))
  37.                )
  38.         )
  39. )
  40.  
  41. (procedure setup_hd_install
  42.    (message 
  43.       "\nQUID? wird in einer neuen Schublade mit dem Namen "
  44.       "\"Quid\" installiert. Sie werden aufgefordert, für die Schublade einen "
  45.       "Speicherort auf der Festplatte anzugeben.")
  46.    (set app_path (tackon
  47.        (askdir
  48.          (prompt
  49.          "Geben Sie an, wo die Quid erstellt "
  50.                  "werden soll.")
  51.          (help @askdir-help)
  52.         (default @default-dest)
  53.                           )
  54.                  "Quid")
  55.     )
  56.    (makedir app_path)
  57. )
  58.  
  59.  
  60.  
  61. (procedure copy_volume1
  62.   (complete 5)
  63.   (get_lhex)
  64.   (copyfiles
  65.          (prompt "Kopieren data.lha ...")
  66.          (source ("data.lha"))
  67.          (dest   app_path)
  68.          (help @copyfiles-help)
  69.          (infos)
  70.          (fonts)
  71.          )
  72.   (complete 10)
  73.   (copyfiles
  74.          (prompt "Kopieren levels01.lha ...")
  75.          (source ("levels01.lha"))
  76.          (dest   app_path)
  77.          (help @copyfiles-help)
  78.          (infos)
  79.          (fonts)
  80.          )
  81.   (complete 20)
  82.   (copyfiles
  83.          (prompt "Kopieren levels02.lha ...")
  84.          (source ("levels02.lha"))
  85.          (dest   app_path)
  86.          (help @copyfiles-help)
  87.          (infos)
  88.          (fonts)
  89.          )
  90.   (complete 30)
  91.    (set options
  92.       (askoptions
  93.           (prompt "Welche der folgenden AmigaGuide möchten Sie installieren?")
  94.           (choices "English" "Italiano" "Deutsh")
  95.           (help "\n"
  96.            @askoptions-help)
  97.           )
  98.       )
  99.   (if (bitand 1 options)
  100.   (copyfiles
  101.          (prompt "Kopieren QuidENG.guide ...")
  102.          (source ("QuidENG.guide"))
  103.          (dest   app_path)
  104.          (help @copyfiles-help)
  105.          (infos)
  106.          (fonts)
  107.          ))
  108.   (if (bitand 2 options)
  109.   (copyfiles
  110.          (prompt "Kopieren QuidITA.guide ...")
  111.          (source ("QuidITA.guide"))
  112.          (dest   app_path)
  113.          (help @copyfiles-help)
  114.          (infos)
  115.          (fonts)
  116.          ))
  117.   (if (bitand 4 options)
  118.   (copyfiles
  119.          (prompt "Kopieren QuidDE.guide ...")
  120.          (source ("QuidDE.guide"))
  121.          (dest   app_path)
  122.          (help @copyfiles-help)
  123.          (infos)
  124.          (fonts)
  125.          ))
  126.   (complete 40)
  127.   (set @default-dest app_path)
  128. )
  129.  
  130. (procedure dearchive
  131.  (complete 60)
  132.  (working "Dearchiven \"data.lha\".\nNur ein moment...")
  133.  (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/data.lha\"")))
  134.  (complete 70)
  135.   (working "Dearchiven \"levels01.lha\".\nNur ein moment...")
  136.  (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/levels01.lha\"")))
  137.  (complete 80)
  138.   (working "Dearchven \"levels02.lha\".\nNur ein moment...")
  139.  (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/levels02.lha\"")))
  140.  (complete 97)
  141.  (delete (cat app_path "/levels01.lha"))
  142.  (delete (cat app_path "/levels02.lha"))
  143.  (delete (cat app_path "/data.lha"))
  144.  (delete "ram:lhex")
  145.  (rename (cat app_path "/levels/level00") (cat app_path "/levels/LEVEL00"))
  146.  (rename (cat app_path "/levels/level01") (cat app_path "/levels/LEVEL01"))
  147.  (rename (cat app_path "/levels/level02") (cat app_path "/levels/LEVEL02"))
  148.  (rename (cat app_path "/levels/level03") (cat app_path "/levels/LEVEL03"))
  149. )
  150.  
  151. ; --------------------------------------------------------------------
  152. ; do_exit
  153. ;   does the language installation
  154. ;   does the program registrations if requested
  155. ;   puts up regcard reminder and says thanks...
  156. ;
  157. (procedure do_exit
  158.  
  159. (complete 99)
  160. (message "\nQuid ist jetzt installiert !"
  161.            "Quid? ist mailware...wenn gefällt dir, shreibst du mir "
  162.            "ein email. meine addresse ist:\n"
  163.            "gtoffoli@leonardo.math.unipd.it\n\n"
  164.            "Danke!"
  165.            )
  166.   (exit)
  167. )
  168.  
  169.  
  170. ; --------------------------------------------------------------------
  171. ;                   This is the actual Install Script
  172. ; --------------------------------------------------------------------
  173.  
  174. (if (< AmigaDos_Version 39)
  175.     (
  176.       (abort
  177.          "Quid? required AmigaOS 3.0, I'm sorry."
  178.          )
  179.     )
  180. )
  181.     (setup_hd_install)
  182. (copy_volume1)
  183. (dearchive)
  184. (do_exit)
  185.